perm filename CX[G,BGB] blob
sn#020195 filedate 1973-01-14 generic text, type T, neo UTF8
00100 ;GEOMETRIC EDITOR COMMAND EXECUTION.
00200 ;WING OPERATIONS.
00300 EXTERN MAKE,KILL
00400 EXTERN MKB,MKF,MKE,MKV,MKBFV
00500 EXTERN KLB,KLF,KLE,KLV,WING
00600 EXTERN WING
00700 EXTERN ECW,ECCW,OTHER,OTHER.
00800 EXTERN BODY,FCW,FCCW,VCW,VCCW
00900
01000
01100 ;1. "V"-COMMAND. MAKE VERTEX BODY.
01200 SUBR(VBODY)-------------------------------------------------------
01300 BEGIN VBODY;BGB 13 JANUARY 1973.
01400 A←1↔B←2↔C←3
01500 ; CALL(MKBFV)
01600 LAC B,PDLPTR
01700 PUSH B,A
01800 PFACE 0,A↔PUSH B,0
01900 PVT 0,A↔PUSH B,0
02000 DAC B,PDLPTR
02100 POP0J
02200 BEND;1/14/72------------------------------------------------------
00100 ;2. "E"-COMMAND.
00200 ;SUBR(SWIRE)-------------------------------------------------------
00300 ;BEGIN SWIRE;BGB 14 JANUARY 1973.
00400 ; PTR←16
00500 ; CDR PTR,PDLPTR↔CAIG PTR,PADPDL↔POP0J ;PADPDL EMPTY.
00600 ;; CALL(LINKED,{-1(PTR)},{(PTR)}) ;ILLEGAL ARGS.
00700 ; POP0J↔LAC PTR,PDLPTR
00800 ;; CALL(MKEV,{-1(PTR)},{(PTR)})
00900 ; LAC PTR,PDLPTR↔DAC 1,(PTR)↔POP0J ;REPLACE TOP.
01000 ;BEND;1/14/72------------------------------------------------------